﻿Imports System.Data.SqlClient
Public Class frmAdministrarVendedores

    Private Sub frmAdministrarVendedores_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'MEGASTOREDataSet.Vendedores' Puede moverla o quitarla según sea necesario.
        Me.VendedoresTableAdapter.Fill(Me.MEGASTOREDataSet.Vendedores)

    End Sub

    Dim Transac As Integer
    Private Sub btnNuevoOficial_Click(sender As Object, e As EventArgs) Handles btnNuevoOficial.Click
        Me.gboDatosOficial.Enabled = True
        Me.btnNuevoOficial.Enabled = False
        Limpiar()
        Transac = 1
    End Sub

    Private Sub btnGuardarOficial_Click(sender As Object, e As EventArgs) Handles btnGuardarOficial.Click
        If Transac = 1 Then
            GuardarNuevoOficial()
        ElseIf Transac = 2 Then
            ActualizarOficial()
        End If
    End Sub

    Private Sub Limpiar()
        Me.txtNombre.EditValue = Nothing
    End Sub

    Private Sub GuardarNuevoOficial()
        If Me.txtNombre.EditValue <> Nothing Then
            Me.VendedoresTableAdapter.InsertarVendedor(Me.txtNombre.EditValue)
            MessageBox.Show("Se ha ingresado correctamente el agente de ventas al sistema", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Limpiar()
            Me.VendedoresTableAdapter.Fill(Me.MEGASTOREDataSet.Vendedores)
        Else
            'Mostrar error e informacion acerca de que controles estan vacios
            If Me.txtNombre.EditValue = Nothing Then
                Me.txtNombre.BackColor = Color.LemonChiffon
                MessageBox.Show("Ingrese el nombre del agente de ventas", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Me.txtNombre.Focus()
            End If
        End If
    End Sub

    Private Sub txtNombre_EditValueChanged(sender As Object, e As EventArgs) Handles txtNombre.EditValueChanged
        Me.txtNombre.BackColor = Color.White
    End Sub

    Private Sub btnActualizarOficial_Click(sender As Object, e As EventArgs) Handles btnActualizarOficial.Click
        Me.gboDatosOficial.Enabled = True
        ObtenerDatosOficial()
        Transac = 2
    End Sub

    Private Sub ObtenerDatosOficial()
        'Me.gvListado.GetRowCellValue(Me.gvListado.FocusedRowHandle, "IdVendedor")
        Me.txtNombre.EditValue = Me.gvListado.GetRowCellValue(Me.gvListado.FocusedRowHandle, "NombreVendedor")
    End Sub

    Private Sub ActualizarOficial()
        Try
            Me.VendedoresTableAdapter.ActualizarVendedor(Me.txtNombre.EditValue, Me.gvListado.GetRowCellValue(Me.gvListado.FocusedRowHandle, "IdVendedor"))
            MessageBox.Show("Se han actualizado correctamente los datos del agente de ventas en el sistema", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Limpiar()
            Me.VendedoresTableAdapter.Fill(Me.MEGASTOREDataSet.Vendedores)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click
        EliminarOficial()
    End Sub

    Private Sub EliminarOficial()
        Dim RnpOfi As String = Me.gvListado.GetRowCellValue(gvListado.FocusedRowHandle, "RnpOficialCredito")
        Dim resp As Object = MessageBox.Show("¿Está seguro de eliminar a este agente de ventas?", varTitulo, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If resp = vbYes Then
            Me.VendedoresTableAdapter.EliminarVendedor(Me.gvListado.GetRowCellValue(Me.gvListado.FocusedRowHandle, "IdVendedor"))
            Limpiar()
            Me.VendedoresTableAdapter.Fill(Me.MEGASTOREDataSet.Vendedores)
        End If
    End Sub
End Class